Cocktail Hour/image.iso/COCKTAIL.DIR/drinks_8_drinks main.ls

Text File | 1997-03-05 | 1.9 KB | 69 lines

on exitFrame
  global SoundActive, gProgrmPathOnHD, OnceCheck
  if SoundActive and (soundBusy(1) = 0) then
    sound playFile 1, gProgrmPathOnHD & "drinks"
  end if
  if OnceCheck = 0 then
    set OnceCheck to 1
    cursor(-1)
    repeat with i = 3 to 23
      set the cursor of sprite i to [34, 35]
      puppetSprite(i, 1)
    end repeat
    repeat with i = 42 to 48
      puppetSprite(i, 1)
    end repeat
  end if
  repeat with i = 3 to 7
    if the member of sprite i = "origin" = 0 then
      if rollOver(i) = 0 then
        set the member of sprite i to member "origin"
      end if
    end if
  end repeat
  go(the frame)
end

on mouseDown
  global checkPress
  set checkPress to the clickOn
  set bDown to the clickOn
  if (bDown > 2) and (bDown < 24) then
    set destName to the name of the member of sprite bDown
    set checkVec to ["abc", "home bar", "non-alco", "hangover", "spirits"]
    set dest to getPos(checkVec, destName) + 2
    set the member of sprite dest to member dest of castLib "drinks"
  else
    if bDown > 41 then
      buttonPressedDown(bDown, "drinks")
    end if
  end if
end

on mouseUp
  global checkPress, currMarker, ScrollVec
  set checkPress2 to the clickOn
  if checkPress = checkPress2 then
    set bUp to the clickOn
    if (bUp > 2) and (bUp < 24) then
      set destName to the name of the member of sprite bUp
      clearPuppets()
      set x to the number of lines in field "backField"
      put marker(0) into line x + 1 of field "backField"
      if destName = "abc" then
        set currMarker to destName
        set destName to destName & "A"
      end if
      if destName = "home bar" then
        set the text of field "total" to the text of field "abc"
        set ScrollVec to [1, 1, 1, 1, 1, 1]
      end if
      go(marker(destName))
    else
      if bUp > 41 then
        buttonPressedUp(bUp, "drinks")
      end if
    end if
  end if
end